home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD021d.dsk / DEMO.PRONTO-DOS.bas < prev    next >
BASIC Source File  |  2003-06-12  |  3KB  |  17 lines
  1. 10  TEXT :D$ =  CHR$(4): PRINT D$"NOMONICO": HOME : INVERSE : PRINT " PRONTO-DOS ";: NORMAL : PRINT " IS FAST!      NORMAL PRONTO";: HTAB 17: PRINT "----       ====== ======";
  2. 20  PRINT "BLOAD A HI-RES IMAGE...... 10 SEC  3 SECBSAVE A HI-RES IMAGE...... 12 SEC  6 SECLOAD A 60-SECTOR PROGRAM.. 16 SEC  4 SECSAVE A 60-SECTOR PROGRAM.. 24 SEC  9 SECBLOAD LANGUAGE CARD....... 13 SEC  4 SEC"
  3. 25  PRINT "OTHER FEATURES...": PRINT 
  4. 30  PRINT "INIT NEW DISKS WITH PRONTO-DOS FEATURES,     OR UPDATE YOUR EXISTING DISKS.": PRINT 
  5. 35  PRINT "MORE SPACE: 15 EXTRA FREE SECTORS OF         USABLE SPACE PER INITIALIZED DISK.": PRINT 
  6. 40  PRINT "MOVE DOS TO IIE AUXILIARY MEMORY (OR         II/II+ RAM CARD FOR 10,000 EXTRA        BYTES OF PROGRAMMABLE MEMORY."
  7. 50  PRINT : PRINT "TYPE-COMMAND SHOWS TEXT FILE CONTENTS.       FREE-SPACE DISPLAY DURING CATALOG.": VTAB 7
  8. 55  PRINT D$"BLOAD E<CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>": PRINT D$"BLOAD PICT.SHAPES": PRINT D$"BLOAD PICT.LOGO/LEFT": CALL 24579: POKE 7965,1: POKE 7949,32: POKE 7953,64: POKE 7957,98: CALL 7936: PRINT D$"BLOAD PICT.LOGO/RIGHT": CALL 24579: POKE 7957,64: CALL 7936
  9. 60  VTAB 24: HTAB 1: PRINT "HIT <ANY KEY> FOR A PICTURE-LOAD DEMO:";: GET A$: PRINT A$: HOME 
  10. 80  POKE 230,32: CALL  -3086: HCOLOR= 3: HPLOT 28,12 TO 138,12 TO 138,156 TO 28,156 TO 28,12: HPLOT 142,12 TO 250,12 TO 250,156 TO 142,156 TO 142,12
  11. 90  HOME : VTAB 10: PRINT " NOTE: SINCE WE DIDN'T WANT TO GIVE      AWAY PRONTO-DOS, THIS IS A ";: INVERSE : PRINT "SIMULATED";: NORMAL : PRINT "    DEMO ONLY. WE KNEW YOU'D UNDERSTAND...                ----";: FOR I = 1 TO 6000: NEXT : POKE  -16297,0
  12. 95  POKE  -16304,0: POKE  -16301,0
  13. 100 D = 222:D$ =  CHR$(4):G$ =  CHR$(7):BU =  -16336: INVERSE : VTAB 21: HTAB 5: PRINT "  PRONTO-DOS  ";: HTAB 23: PRINT " NORMAL SPEED ": NORMAL : PRINT "    --------------    --------------": PRINT : PRINT "    --------------    --------------";: FOR I = 1 TO 2000: NEXT 
  14. 105  NORMAL : VTAB 23: HTAB 5: SPEED= 80: PRINT "ON YOUR MARKS...";: GOSUB 999: SPEED= 255: PRINT " GET SET...";: GOSUB 999: INVERSE : PRINT " GO! ";: PRINT G$;:S =  PEEK(36) -5: FOR I = S TO 1  STEP  -1: VTAB 23: HTAB I: PRINT " GO! ";: CALL  -868: NEXT : HTAB 1: NORMAL : PRINT "TIME->";
  15. 120 S1 = 75:S2 = 175: POKE 7965,S1: POKE 7949,98: POKE 7953,130: POKE 7957,32: CALL 7936: HTAB 1: CALL  -868: HTAB 7: PRINT "3 SECONDS"G$;: SPEED= 150: PRINT " (PRONTO IS FINISHED!)";: SPEED= 255: POKE 7965,S2: POKE 7949,64: POKE 7953,96: POKE 7957,32: CALL 7936
  16. 130  HTAB 17: CALL  -868: INVERSE : HTAB 24: PRINT " 10 SECONDS ";: FOR I = 1 TO 50:S =  PEEK( -16336): NEXT : FOR I = 1 TO 999: NEXT : HTAB 24: NORMAL : PRINT " 10 SECONDS ": VTAB 22: FOR I = 1 TO 5000: NEXT : HOME : PRINT  CHR$(4)"RUN DEMO.MENU"
  17. 999 BU =  -16336: FOR I = 1 TO 9: FOR J = 1 TO 2:S =  PEEK(BU): NEXT : FOR J = 1 TO 234: NEXT : NEXT : RETURN